home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr35
/
autorob2.zip
/
AR.BTM
next >
Wrap
Text File
|
1993-06-22
|
13KB
|
502 lines
setlocal
set AP=%@PATH[%@SEARCH[ar.btm]]
set rcd=%@PATH[%@SEARCH[robocomm.exe]]
set rmd=%@PATH[%@SEARCH[robomail.exe]]
set /R c:\arlst.lst
set rmd2=c:\z\mail
set ddup=HHINFNET
alias spt scrput
alias gam=goto amm
alias gam2=goto amm2
alias gtm goto main
gosub %1
:Main
cls
gosub display
@echo off
:t2
spt 23 3 bri whi on blu Time is now: %_time
spt 23 57 bri whi on blu Today is: %_Date
set _cmd=NN
inkey /w1 /K[QM123456789IDPLSERKC] %%_cmd
iff "%_cmd"=="NN" then
goto t2
elseiff "%_cmd"=="Q" then
cls
spt 14 16 bri whi on blu Any other key returns to Autorobo Main Menu
screen 12 20
inkey Save configuration before Exit Y/N: %%_cmd
iff "%_cmd"=="Y" then
set > c:\arlst.lst
cls
endlocal
quit
elseiff "%_cmd"=="n" then
cls
endlocal
quit
else
gtm
endiff
elseiff "%_cmd"=="C" then
cdd %rcd
robocomm.exe
gtm
elseiff "%_cmd"=="M" then
cdd %rmd
Iff exist %rmd2\*.q?? then
Robomail.exe /I
gtm
ELSE
Robomail.exe
gtm
ENDIFF
elseiff "%_cmd"=="S" then
set > c:\arlst.lst
gtm
elseiff "%_cmd"=="L" then
set /R c:\arlst.lst
gtm
elseiff "%_cmd"=="R" then
goto run
endiff
:amm
set am=%_cmd
if "%_cmd"=="I" set am=10
if "%_cmd"=="d" set am=11
if "%_cmd"=="K" set am=12
if "%_cmd"=="p" set am=13
cls
:amm2
spt 23 3 bri whi on blu Time is now: %_time
spt 23 57 bri whi on blu Today is: %_Date
iff "%am"=="10" then
spt 2 27 bri whi on blu Import .qwk files setup
elseiff "%am"=="13" then
spt 2 27 bri whi on blu Pack Robocomm setup
elseiff "%am"=="12" then
spt 2 27 bri whi on blu Pack Robomail setup
elseiff "%am"=="11" then
spt 2 27 bri whi on blu Del Dups to %DDUP setup
else
spt 2 27 bri whi on blu Event %am: %[an%am] .
endiff
if "%[ad%am]" GT "%@date[01-01-80]" spt 4 43 bri whi on blu %@makedate[%[ad%am]]
spt 4 27 bri whi on blu Date:
if "%[at%am]" GT "%@time[00:00:00]" spt 5 43 bri whi on blu %@maketime[%[at%am]]
spt 5 27 bri whi on blu Time:
if "%[af&am]" != "N" spt 6 43 bri whi on blu %[AF%am]
spt 6 27 bri whi on blu Active:
iff %am LT 10 .and. "%[r%am]"=="/R" then
spt 7 27 bri whi on blu Reset: Y
elseiff %am LT 10 .and. "%[r%am]" != "/R" then
spt 7 27 bri whi on blu Reset: N
endiff
echo off
if %am LT 10 set FAP=%AP%arammenu.mnu
if %am GT 9 set fap=%ap%arammen2.mnu
set OPT=
set OPT=%@SELECT[%fap,8,19,23,60 Agenda Setup Menu]
set OPT=%@SUBSTR[%opt,1,9]
iff "%OPT"=="" then
gtm
elseiff "%OPT"=="active me" then
goto active
elseiff "%OPT"=="agenda me" then
echo off
set OPT=
set FAP=%AP%arevent.mnu
set OPT=%@SELECT[%fap,8,19,24,60 Agenda Menu]
set OPT=%@SUBSTR[%opt,1,9]
set an%am=%opt
gam2
elseiff "%OPT"=="clear eve" then
set an%am=
set ad%am=
set at%am=
set AF%am=N
set r%am=
gam
elseiff "%OPT"=="date menu" then
goto date
elseiff "%OPT"=="time menu" then
goto time
elseiff "%OPT"=="toggle re" then
iff "%[R%am]"=="/R" then
set R%am=
gam2
else set R%am=/R
endiff
gam2
elseiff "%OPT"=="toggle ac" then
iff "%[af%am]" != "A" then
set af%am=A
gam2
else
set af%am=N
endiff
gam2
elseiff "%OPT"=="set all f" then
set af%am=A
set ad%am=%@date[%_date]
set at%am=%@time[%_time]
gam
elseiff "%OPT"=="quit to d" then
gtm
endiff
gam
:display
drawbox 0 0 24 79 1 bri whi on blu
drawhline 16 0 80 2 bri whi on blu
drawhline 22 0 80 2 bri whi on blu
drawvline 16 24 7 2 bri whi on blu
spt 17 2 bri whi on blu Agenda
spt 17 10 bri whi on blu un
spt 17 9 bri gre on blu R
spt 17 14 bri whi on blu ave
spt 17 13 bri gre on blu S
spt 17 19 bri whi on blu oad
spt 17 18 bri gre on blu L
spt 18 9 bri gre on blu 1-9
spt 18 2 bri white on blu Setup
spt 19 2 bri whi on blu Robo omm
spt 19 6 bri gre on blu C
spt 20 2 bri whi on blu Robo ail
spt 20 6 bri gre on blu M
spt 21 3 bri whi on blu uit to DOS
spt 21 2 bri gre on blu Q
spt 17 48 bri yel on blu Active
spt 17 71 bri yel on blu Time
spt 17 61 bri yel on blu Date
spt 23 3 bri whi on blu Time is now: %_time
spt 23 57 bri whi on blu Today is: %_Date
if "%af11" != "N" spt 18 51 bri yel on blu %af11
spt 18 29 bri whi on blu el Dups %DDUP
spt 18 28 bri gre on blu D
if "%at11" GT "%@time[00:00:00]" spt 18 69 bri whi on blu %@maketime[%at11]
if "%ad11" GT "%@date[01-01-80]" spt 18 59 bri whi on blu %@makedate[%ad11]
if "%af13" != "N" spt 19 51 bri yel on blu %af13
spt 19 29 bri whi on blu ack Robocomm
spt 19 28 bri gre on blu P
if "%at13" GT "%@time[00:00:00]" spt 19 69 bri whi on blu %@maketime[%at13]
if "%ad13" GT "%@date[01-01-80]" spt 19 59 bri whi on blu %@makedate[%ad13]
if "%af12" != "N" spt 20 51 bri yel on blu %af12
spt 20 28 bri whi on blu Pac Robomail
spt 20 31 bri gre on blu K
if "%at12" GT "%@time[00:00:00]" spt 20 69 bri whi on blu %@maketime[%at12]
if "%ad12" GT "%@date[01-01-80]" spt 20 59 bri whi on blu %@makedate[%ad12]
spt 21 29 bri whi on blu mp .qwk files
spt 21 28 bri gre on blu I
if "%af10" != "N" spt 21 51 bri yel on blu %af10
if "%at10" GT "%@time[00:00:00]" spt 21 69 bri whi on blu %@maketime[%at10]
if "%ad10" GT "%@date[01-01-80]" spt 21 59 bri whi on blu %@makedate[%ad10]
spt 23 31 bri yel on blu Make selection:
screen 23 48
spt 1 3 bri whi on blu Event 1: %an1
if "%af1" != "N" spt 1 12 bri yel on blu %af1
if "%r1"=="/R" spt 1 13 bri yel on blu R
spt 2 3 bri whi on blu Date:
if "%ad1" GT "%@date[01-01-80]" spt 2 16 bri whi on blu %@makedate[%ad1]
spt 3 3 bri whi on blu Time:
if "%at1" GT "%@time[00:00:00]" spt 3 16 bri whi on blu %@maketime[%at1]
spt 5 3 bri whi on blu Event 2: %an2
if "%af2" != "N" spt 5 12 bri yel on blu %af2
if "%r2"=="/r" spt 5 13 bri yel on blu R
spt 6 3 bri whi on blu Date:
if "%ad2" GT "%@date[01-01-80]" spt 6 16 bri whi on blu %@makedate[%ad2]
spt 7 3 bri whi on blu Time:
if "%at2" GT "%@time[00:00:00]" spt 7 16 bri whi on blu %@maketime[%at2]
spt 9 3 bri whi on blu Event 3: %an3
if "%af3" != "N" spt 9 12 bri yel on blu %af3
if "%r3"=="/r" spt 9 13 bri yel on blu R
spt 10 3 bri whi on blu Date:
if "%ad3" GT "%@date[01-01-80]" spt 10 16 bri whi on blu %@makedate[%ad3]
spt 11 3 bri whi on blu Time:
if "%at3" GT "%@time[00:00:00]" spt 11 16 bri whi on blu %@maketime[%at3]
spt 13 3 bri whi on blu Event 4: %an4
if "%af4" != "N" spt 13 12 bri yel on blu %af4
if "%r4"=="/r" spt 13 13 bri yel on blu R
spt 14 3 bri whi on blu Date:
if "%ad4" GT "%@date[01-01-80]" spt 14 16 bri whi on blu %@makedate[%ad4]
spt 15 3 bri whi on blu Time:
if "%at4" GT "%@time[00:00:00]" spt 15 16 bri whi on blu %@maketime[%at4]
spt 1 56 bri whi on blu Event 5: %an5
if "%af5" != "N" spt 1 65 bri yel on blu %af5
if "%r5"=="/r" spt 1 66 bri yel on blu R
spt 2 56 bri whi on blu Date:
if "%ad5" GT "%@date[01-01-80]" spt 2 69 bri whi on blu %@makedate[%ad5]
spt 3 56 bri whi on blu Time:
if "%at5" GT "%@time[00:00:00]" spt 3 69 bri whi on blu %@maketime[%at5]
spt 5 56 bri whi on blu Event 6: %an6
if "%af6" != "N" spt 5 65 bri yel on blu %af6
if "%r6"=="/r" spt 5 66 bri yel on blu R
spt 6 56 bri whi on blu Date:
if "%ad6" GT "%@date[01-01-80]" spt 6 69 bri whi on blu %@makedate[%ad6]
spt 7 56 bri whi on blu Time:
if "%at6" GT "%@time[00:00:00]" spt 7 69 bri whi on blu %@maketime[%at6]
spt 9 56 bri whi on blu Event 7: %an7
if "%af7" != "N" spt 9 65 bri yel on blu %af7
if "%r7"=="/r" spt 9 66 bri yel on blu R
spt 10 56 bri whi on blu Date:
if "%ad7" GT "%@date[01-01-80]" spt 10 69 bri whi on blu %@makedate[%ad7]
spt 11 56 bri whi on blu Time:
if "%at7" GT "%@time[00:00:00]" spt 11 69 bri whi on blu %@maketime[%at7]
spt 13 56 bri whi on blu Event 8: %an8
if "%af8" != "N" spt 13 65 bri yel on blu %af8
if "%r8"=="/r" spt 13 66 bri yel on blu R
spt 14 56 bri whi on blu Date:
if "%ad8" GT "%@date[01-01-80]" spt 14 69 bri whi on blu %@makedate[%ad8]
spt 15 56 bri whi on blu Time:
if "%at8" GT "%@time[00:00:00]" spt 15 69 bri whi on blu %@maketime[%at8]
spt 1 30 bri whi on blu Event 9: %an9
if "%af9" != "N" spt 1 39 bri yel on blu %af9
if "%r9"=="/r" spt 1 40 bri yel on blu R
spt 2 30 bri whi on blu Date:
if "%ad9" GT "%@date[01-01-80]" spt 2 43 bri whi on blu %@makedate[%ad9]
spt 3 30 bri whi on blu Time:
if "%at9" GT "%@time[00:00:00]" spt 3 43 bri whi on blu %@maketime[%at9]
return
:date
spt 23 3 bri whi on blu Time is now: %_time
spt 23 57 bri whi on blu Today is: %_Date
if "%[ad%am]" GT "%@date[01-01-80]" spt 4 43 bri whi on blu %@makedate[%[ad%am]]
echo off
set OPT=
set FAP=%AP%ardate.mnu
set OPT=%@SELECT[%fap,8,19,21,60 Date Menu]
set OPT=%@SUBSTR[%opt,1,7]
iff "%OPT"=="" then
gam2
elseiff "%OPT"=="set dat" then
set ad%am=%@date[%_date]
goto date
elseiff "%OPT"=="enter d" then
cls
screen 12 25 Enter Date (MM-DD-YY):
Input %%ad
set ad%am=%@date[%ad]
gam
elseiff "%OPT"=="Plus da" then
set ad%am=%@eval[%[ad%am] + 1]
goto date
elseiff "%OPT"=="Minus d" then
set ad%am=%@eval[%[ad%am] - 1]
goto date
elseiff "%OPT"=="Plus we" then
set ad%am=%@eval[%[ad%am] + 7]
goto date
elseiff "%OPT"=="Minus w" then
set ad%am=%@eval[%[ad%am] - 7]
goto date
elseiff "%OPT"=="Plus 30" then
set ad%am=%@eval[%[ad%am] + 30]
goto date
elseiff "%OPT"=="Minus 3" then
set ad%am=%@eval[%[ad%am] - 30]
goto date
endiff
gtm
:time
spt 23 3 bri whi on blu Time is now: %_time
spt 23 57 bri whi on blu Today is: %_Date
spt 5 27 bri whi on blu Time: %@maketime[%[at%am]]
echo off
set OPT=
set FAP=%AP%artime.mnu
set OPT=%@SELECT[%fap,8,19,24,60 Time Menu]
set OPT=%@SUBSTR[%opt,1,7]
iff "%OPT"=="" then
gam2
elseiff "%OPT"=="set Tim" then
set at%am=%@time[%_time]
goto time
elseiff "%OPT"=="clear t" then
set at%am=
goto time
elseiff "%OPT"=="Enter T" then
cls
screen 12 25 Enter time (HH:MM:SS):
Input %%at
set at%am=%@time[%at]
gam
elseiff "%OPT"=="plus Ho" then
iff %[at%am] GT 82800 .and. %[at%am] lt 86400 then
set at%am=%@eval[(%[at%am] +3600) - 86400]
goto time
endiff
set at%am=%@eval[%[at%am] + 3600]
goto time
elseiff "%OPT"=="plus Tw" then
iff %[at%am] GT 43200 .and. %[at%am] lt 86400 then
set at%am=%@eval[(%[at%am] +43200) - 86400]
goto time
endiff
set at%am=%@eval[%[at%am] + 43200]
goto time
elseiff "%OPT"=="minus H" then
iff %[at%am] LT 3600 .and. %[at%am] Gt 0 then
set at%am=%@eval[86400 - (3600 - %[at%am])]
goto time
endiff
set at%am=%@eval[%[at%am] - 3600]
goto time
elseiff "%OPT"=="Plus Mi" then
iff %[at%am] GT 86340 .and. %[at%am] lt 86400 then
set at%am=%@eval[(%[at%am] +60) - 86400]
goto time
endiff
set at%am=%@eval[%[at%am] + 60]
goto time
elseiff "%OPT"=="Plus Te" then
iff %[at%am] GT 85800 .and. %[at%am] lt 86400 then
set at%am=%@eval[(%[at%am] +600) - 86400]
goto time
endiff
set at%am=%@eval[%[at%am] + 600]
goto time
elseiff "%OPT"=="Minus M" then
iff %[at%am] LT 60 .and. %[at%am] Gt 0 then
set at%am=%@eval[86400 - (60 - %[at%am])]
goto time
endiff
set at%am=%@eval[%[at%am] - 60]
goto time
elseiff "%OPT"=="Minus T" then
iff %[at%am] LT 600 .and. %[at%am] Gt 0 then
set at%am=%@eval[86400 - (600 - %[at%am])]
goto time
endiff
set at%am=%@eval[%[at%am] - 600]
goto time
endiff
gam2
:active
iff "%[af%am]" != "N" then
spt 6 43 bri whi on blu %[AF%am]
elseiff "%[af%am]" == "N" then
spt 6 43 bri whi on blu N
endiff
echo off
set OPT=
set FAP=%AP%aractive.mnu
set OPT=%@SELECT[%fap,8,19,17,60 Active Menu]
set OPT=%@SUBSTR[%opt,1,3]
iff "%OPT"=="" then
gam2
elseiff "%OPT"=="tog" then
iff "%[af%am]" != "A" then
set af%am=A
gam2
else
set af%am=N
endiff
gam2
elseiff "%opt"=="EVE" then
set af%am=2
gam2
elseiff "%OPT"=="Dai" then
set af%am=D
gam2
elseiff "%OPT"=="Wee" then
set af%am=W
gam2
elseiff "%OPT"=="Mon" then
set af%am=M
gam2
endiff
gtm
:run
gosub display
:reset
set limit=13
set ct=1
spt 12 35 bri bli red on blu Q to quit
spt 14 32 bri bli red on blu AUTOROBO RUNNING
spt 0 32 bri yel on red AUTOROBO RUNNING
:loop
spt 23 3 bri whi on blu Time is now: %_time
spt 23 57 bri whi on blu Today is: %_Date
screen 23 48
Inkey /K"Q" /w %%_cmd
If "%_cmd"=="Q" gtm
if %ct GT %limit goto reset
if "%[af%ct]" != "N" .and. "%[ad%ct]" == "%@date[%_DATE]" .and. %@time[%_time] GT 60 .and. %@time[%_time] GT %[at%ct] goto rr
set ct=%@eval[%ct + 1]
goto loop
endiff
gtm
:RR
iff "%ct"=="10" then
spt 14 25 bri bli whi on red Q = Quit Robomail .qwk Import
gosub choice
cdd %rmd
Robomail.exe /I /Q
gosub advance
goto reset
elseiff "%ct"=="11" then
spt 14 25 bri bli whi on red Q = Quit Del Dup to %DDUP
gosub choice
cdd %rcd
dup "%ddup"
gosub advance
goto reset
elseiff "%ct"=="12" then
spt 14 25 bri bli whi on red Q = Quit Pack Robomail Operation
gosub choice
cdd %rmd
Robomail.exe /A /R /P /V /Q
gosub advance
goto reset
elseiff "%ct"=="13" then
spt 14 25 bri bli whi on red Q = Quit Pack Robocomm Operation
gosub choice
cdd %rcd
robocomm.exe /p
gosub advance
goto reset
else
cdd %rcd
Robocomm.exe /A%[an%ct] %[r%ct]
gosub advance
endiff
goto reset
:advance
if "%[af%ct]"=="A" set af%ct=N
if "%[af%ct]"=="D" set ad%ct=%@eval[%[ad%ct] + 1]
if "%[af%ct]"=="2" set ad%ct=%@eval[%[ad%ct] + 2]
if "%[af%ct]"=="W" set ad%ct=%@eval[%[ad%ct] + 7]
if "%[af%ct]"=="M" set ad%ct=%@eval[%[ad%ct] + 30]
set > c:\arlst.lst
cls
gosub display
return
:choice
spt 11 31 bri red on blu Press any key or
spt 12 31 bri red on blu wait 10 seconds
Inkey /W10 %%_cmd
If "%_cmd"=="Q" gtm
return